home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)td.d64 / londonderry.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  167 lines
  1. 100 REM  LONDONDERRY AIR
  2. 101 REM  TRANSCRIBED FOR C-64 BY R.KEAYS
  3. 102 REM  DRIVER BY BUTTERFIELD
  4. 105 PRINT"[147]  CONCERT IN PROGRESS!"
  5. 108 FORVO=1TO15:POKE54296,VO:NEXTVO
  6. 110 L1=54272:L2=54279:L3=54286
  7. 120 H1=L1+1:H2=L2+1:H3=L3+1
  8. 130 V1=L1+4:V2=L2+4:V3=L3+4
  9. 150 POKEV1+1,9:POKEV1+2,170
  10. 160 POKEV2+1,26:POKEV2+2,170
  11. 170 POKEV3+1,26:POKEV3+2,170
  12. 180 T=TI:F=30
  13. 200 POKEV1,32:POKEV2,32:POKEV3,32
  14. 210 READS:IFS=0GOTO290
  15. 220 READX1,Y1,X2,Y2,X3,Y3
  16. 230 IFX1THENPOKEH1,X1:POKEL1,Y1:POKEV1,33
  17. 240 IFX2THENPOKEH2,X2:POKEL2,Y2:POKEV2,33
  18. 250 IFX3THENPOKEH3,X3:POKEL3,Y3:POKEV3,33
  19. 260 T=T+S/10*F
  20. 270 IFT>TIGOTO270
  21. 280 GOTO200
  22. 290 FORJ=L1 TO 54295:POKE J,0:NEXT J:FORVO=15TO1STEP-1:POKE54296,VO:NEXT:END
  23. 300 REM DURATION,HI1,LO1,...,HI3,LO3
  24. 303 :
  25. 306 :
  26. 8000 REM  MUSIC DATA STARTS HERE
  27. 8001 DATA60,0,0,0,0,0,0:REM PAUSE BEFORE START
  28. 8002 DATA10,40,200,0,0,34,75
  29. 8006 DATA05,51,97,38,126,30,141
  30. 8010 DATA05,54,111,34,75,27,56
  31. 8014 DATA05,61,126,30,141,25,177
  32. 8018 DATA05,68,149,27,56,22,227
  33. 8022 DATA10,61,126,30,141,25,177
  34. 8026 DATA05,68,149,27,56,22,227
  35. 8030 DATA05,45,198,34,75,20,100
  36. 8034 DATA05,51,97,38,126,19,63
  37. 8038 DATA10,45,198,27,56,20,100
  38. 8046 DATA05,34,75,27,56,20,100
  39. 8050 DATA05,19,63,15,70,13,156
  40. 8054 DATA05,20,100,17,37,12,216
  41. 8058 DATA05,22,227,19,63,11,114
  42. 8062 DATA10,25,177,12,216,10,60
  43. 8066 DATA05,22,227,0,0,0,0
  44. 8070 DATA05,25,177,20,100,15,70
  45. 8074 DATA05,34,75,27,56,19,63
  46. 8078 DATA05,30,141,20,100,0,0
  47. 8082 DATA05,25,177,19,63,15,70
  48. 8086 DATA05,22,227,17,37,0,0
  49. 8090 DATA05,20,100,15,70,0,0
  50. 8094 DATA10,17,37,13,156,0,0
  51. 8102 DATA05,17,37,11,114,6,206
  52. 8106 DATA05,20,100,10,60,8,147
  53. 8110 DATA05,25,177,19,63,7,163
  54. 8114 DATA05,27,56,17,37,6,206
  55. 8118 DATA05,30,141,10,60,6,108
  56. 8122 DATA05,34,75,17,37,11,114
  57. 8126 DATA05,30,141,15,70,6,108
  58. 8130 DATA05,25,177,19,63,7,163
  59. 8134 DATA05,20,100,19,63,8,147
  60. 8138 DATA05,25,177,17,37,5,185
  61. 8142 DATA25,22,227,17,37,7,163
  62. 8150 DATA05,19,63,15,70,13,156
  63. 8154 DATA05,20,100,17,37,12,216
  64. 8158 DATA05,22,227,19,63,11,114
  65. 8162 DATA10,25,177,12,216,0,0
  66. 8166 DATA05,22,227,9,159,0,0
  67. 8170 DATA05,25,177,15,70,10,60
  68. 8174 DATA05,34,75,17,37,11,114
  69. 8178 DATA05,30,141,15,70,6,108
  70. 8182 DATA05,25,177,19,63,6,108
  71. 8186 DATA05,22,227,17,37,8,147
  72. 8190 DATA05,20,100,30,141,10,60
  73. 8194 DATA05,17,37,13,156,5,185
  74. 8198 DATA05,16,47,9,159,6,108
  75. 8202 DATA05,17,37,12,216,8,147
  76. 8206 DATA05,19,63,13,156,11,114
  77. 8210 DATA05,20,100,15,70,12,216
  78. 8214 DATA05,22,227,20,100,13,156
  79. 8218 DATA15,25,177,15,70,8,147
  80. 8222 DATA05,27,56,19,63,13,156
  81. 8226 DATA05,25,177,15,70,6,108
  82. 8230 DATA05,22,227,17,37,6,206
  83. 8234 DATA05,20,100,12,216,8,147
  84. 8238 DATA05,22,227,19,63,7,163
  85. 8242 DATA25,20,100,15,70,12,216
  86. 8250 DATA05,30,141,27,56,17,37
  87. 8254 DATA05,34,75,25,177,15,70
  88. 8258 DATA05,38,126,22,227,13,156
  89. 8262 DATA15,40,200,30,141,12,216
  90. 8266 DATA05,38,126,12,216,0,0
  91. 8270 DATA05,38,126,20,100,13,156
  92. 8274 DATA05,34,75,22,227,19,63
  93. 8278 DATA05,30,141,12,216,0,0
  94. 8282 DATA05,25,177,20,100,17,37
  95. 8286 DATA05,30,141,19,63,15,70
  96. 8290 DATA05,25,177,15,70,0,0
  97. 8294 DATA10,20,100,15,70,8,147
  98. 8298 DATA05,15,70,12,216,8,147
  99. 8302 DATA05,30,141,17,37,11,114
  100. 8306 DATA05,34,75,25,177,12,216
  101. 8310 DATA05,38,126,22,227,13,156
  102. 8314 DATA15,40,200,20,100,12,216
  103. 8318 DATA05,38,126,19,63,6,108
  104. 8322 DATA05,38,126,15,70,6,206
  105. 8326 DATA05,34,75,17,37,13,156
  106. 8330 DATA05,30,141,15,70,8,147
  107. 8334 DATA05,25,177,20,100,15,70
  108. 8338 DATA25,22,227,13,156,5,185
  109. 8346 DATA05,30,141,20,100,7,163
  110. 8350 DATA05,30,141,25,177,15,70
  111. 8354 DATA05,30,141,22,227,13,156
  112. 8358 DATA15,51,97,25,177,7,163
  113. 8362 DATA05,45,198,22,227,6,206
  114. 8366 DATA05,45,198,22,227,6,108
  115. 8370 DATA05,40,200,30,141,20,100
  116. 8374 DATA05,34,75,20,100,6,206
  117. 8378 DATA05,40,200,27,56,19,63
  118. 8382 DATA05,30,141,20,100,6,108
  119. 8386 DATA05,25,177,19,63,0,0
  120. 8390 DATA15,20,100,8,147,0,0
  121. 8398 DATA05,19,63,11,114,6,206
  122. 8402 DATA05,20,100,12,216,6,108
  123. 8406 DATA05,22,227,14,107,5,185
  124. 8410 DATA05,25,177,22,227,7,163
  125. 8414 DATA05,34,75,0,0,0,0
  126. 8418 DATA05,30,141,19,63,6,206
  127. 8422 DATA05,25,177,10,60,0,0
  128. 8426 DATA05,22,227,11,114,6,206
  129. 8430 DATA05,20,100,15,70,6,108
  130. 8434 DATA05,17,37,13,156,5,185
  131. 8438 DATA05,19,63,7,163,0,0
  132. 8442 DATA25,20,100,12,216,5,25
  133. 8450 DATA10,40,200,34,75,0,0
  134. 8454 DATA05,51,97,38,126,30,141
  135. 8458 DATA05,54,111,34,75,27,56
  136. 8462 DATA10,61,126,40,200,25,177
  137. 8466 DATA05,38,126,28,214,22,227
  138. 8470 DATA05,34,75,25,177,20,100
  139. 8474 DATA05,68,149,27,56,22,227
  140. 8478 DATA05,61,126,30,141,25,177
  141. 8482 DATA05,38,126,27,56,22,227
  142. 8486 DATA05,34,75,25,177,20,100
  143. 8490 DATA05,68,149,27,56,22,227
  144. 8494 DATA05,61,126,30,141,25,177
  145. 8498 DATA05,68,149,27,56,22,227
  146. 8502 DATA05,45,198,27,56,20,100
  147. 8506 DATA05,38,126,22,227,0,0
  148. 8510 DATA05,34,75,27,56,20,100
  149. 8514 DATA05,51,97,30,141,19,63
  150. 8518 DATA05,45,198,27,56,20,100
  151. 8522 DATA05,51,97,30,141,19,63
  152. 8526 DATA05,45,198,27,56,20,100
  153. 8530 DATA05,51,97,30,141,19,63
  154. 8534 DATA20,40,200,25,177,17,37
  155. 8538 DATA30,34,75,20,100,11,114
  156. 8542 DATA20,38,126,19,63,7,163
  157. 8546 DATA40,40,200,20,100,5,25
  158. 8550 DATA10,0,0,0,0,0,0
  159. 8554 DATA10,0,0,0,0,0,0
  160. 8558 DATA10,0,0,0,0,0,0
  161. 8562 DATA10,0,0,0,0,0,0
  162. 8566 DATA10,0,0,0,0,0,0
  163. 8570 DATA10,0,0,0,0,0,0
  164. 8574 DATA10,0,0,0,0,0,0
  165. 9995 DATA0:REM STOP THE MUSIC
  166. 9998 :
  167.